home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / byt85apr.lbr / EXAMPLES.LQR / EXAMPLE1.PAS next >
Pascal/Delphi Source File  |  1985-09-15  |  384b  |  18 lines
  1. PROGRAM Average (input,output);
  2. VAR Sum, Count, New: INTEGER;
  3.     Avg: REAL;
  4. BEGIN
  5.   Sum := 0;
  6.   Count := 0;
  7.   Read (New);
  8.   WHILE New<>9999 DO
  9.     BEGIN
  10.       Sum := Sum+New;
  11.       Count := Count+1;
  12.       New := New + 1
  13.     END;
  14.   Avg := Sum/Count;
  15.   WRITELN ('The average is ',avg);
  16. END;
  17.  
  18.